home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_33 < prev    next >
Text File  |  1997-01-12  |  202b  |  14 lines
  1. #LAPLACE 1
  2. #->
  3. const(epsilon,n)
  4. #<-
  5. #->
  6. alpha_2(alpha_1)=asin(sin(epsilon)*sqrt(n^2-sin(alpha_1)^2) + cos(epsilon)*sin(alpha_1))
  7. #<-
  8. #->
  9. delta(alpha_1)=alpha_1 + alpha_2(alpha_1) - epsilon
  10. #<-
  11. #->
  12.  
  13. #<-
  14.